Graduation from F.U./Graduation from F.U..iso/macproj/macproj.DXR/00001.ls

Text File | 1995-02-17 | 1.4 KB | 70 lines

global Dur1, Dur2, Dur3, Dur4, MoovSprite

on startMovie
  set the soundLevel to 7
  set OnOrOff to 0
  set Dur1 to the duration of cast "FRAT1.MOV"
  set Dur2 to the duration of cast "FRAT2.MOV"
  set Dur3 to the duration of cast "FRAT3.MOV"
  set Dur4 to the duration of cast "FRAT4.MOV"
  set MoovSprite to 20
end

on AllPuppetsOff
  repeat with channel = 1 to 48
    puppetSprite(channel, 0)
  end repeat
end

on m1end
  if (the movieRate of sprite MoovSprite = 0) and (the movieTime of sprite MoovSprite = Dur1) then
    go("m2")
  else
    nothing()
  end if
end

on m2end
  if (the movieRate of sprite MoovSprite = 0) and (the movieTime of sprite MoovSprite = Dur2) then
    go("m3")
  else
    nothing()
  end if
end

on m3end
  if (the movieRate of sprite MoovSprite = 0) and (the movieTime of sprite MoovSprite = Dur3) then
    go("m4")
  else
    nothing()
  end if
end

on m4end
  if (the movieRate of sprite MoovSprite = 0) and (the movieTime of sprite MoovSprite = Dur4) then
    go("m1")
  else
    nothing()
  end if
end

on OpenTheMovie
  global MoovCastName
  if the visible of sprite 15 = 1 then
    updateStage()
    set the controller of cast MoovCastName to 0
    set the movieRate of sprite 20 to 1
  else
    if the movieRate of sprite 20 = 0 then
      nothing()
    else
      set the controller of cast MoovCastName to 1
      set the movieRate of sprite 20 to 1
    end if
  end if
end

on CloseTheMovie
  nothing()
end